/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / thingatpt.elc.z / thingatpt.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 36 | 3a 35 38 3a 34 32 20 31 |an 14 06|:58:42 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 74 68 69 6e 67 61 |19.0/lis|p/thinga|
|00000070| 74 70 74 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |tpt.el.;|;; emacs|
|00000080| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 33 30 2e 37 | version| 19.30.7|
|00000090| 30 2e 36 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |0.6..;;;| bytecom|
|000000a0| 70 20 76 65 72 73 69 6f | 6e 20 46 53 46 20 32 2e |p versio|n FSF 2.|
|000000b0| 31 30 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |10.;;; o|ptimizat|
|000000c0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|000000d0| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|000000e0| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|000000f0| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000100| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000110| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000120| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000130| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000140| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000150| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|00000160| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|00000180| 39 2e 32 39 22 29 29 29 | 0a 20 20 20 20 28 65 72 |9.29")))|.    (er|
|00000190| 72 6f 72 20 22 60 74 68 | 69 6e 67 61 74 70 74 2e |ror "`th|ingatpt.|
|000001a0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 2e 32 39 | for Ema|cs 19.29|
|000001c0| 20 6f 72 20 6c 61 74 65 | 72 22 29 29 0a 0a 0a 28 | or late|r"))...(|
|000001d0| 70 72 6f 76 69 64 65 20 | 28 71 75 6f 74 65 20 74 |provide |(quote t|
|000001e0| 68 69 6e 67 61 74 70 74 | 29 29 0a 23 40 34 34 20 |hingatpt|)).#@44 |
|000001f0| 4d 6f 76 65 20 66 6f 72 | 77 61 72 64 20 74 6f 20 |Move for|ward to |
|00000200| 74 68 65 20 65 6e 64 20 | 6f 66 20 74 68 65 20 6e |the end |of the n|
|00000210| 65 78 74 20 54 48 49 4e | 47 2e 1f 0a 28 64 65 66 |ext THIN|G...(def|
|00000220| 61 6c 69 61 73 20 27 66 | 6f 72 77 61 72 64 2d 74 |alias 'f|orward-t|
|00000230| 68 69 6e 67 20 23 5b 28 | 54 48 49 4e 47 20 26 6f |hing #[(|THING &o|
|00000240| 70 74 69 6f 6e 61 6c 20 | 4e 29 20 22 08 c1 4e 86 |ptional |N) "..N.|
|00000250| 5c 66 00 c2 c3 c4 08 5c | 22 21 19 c5 09 21 83 1e |\f.....\|"!...!..|
|00000260| 00 09 0e 06 86 1a 00 c7 | 21 82 5c 22 00 c8 c9 08 |........|!.\"....|
|00000270| 5c 22 29 87 22 20 5b 54 | 48 49 4e 47 20 66 6f 72 |\")." [T|HING for|
|00000280| 77 61 72 64 2d 6f 70 20 | 69 6e 74 65 72 6e 2d 73 |ward-op |intern-s|
|00000290| 6f 66 74 20 66 6f 72 6d | 61 74 20 22 66 6f 72 77 |oft form|at "forw|
|000002a0| 61 72 64 2d 25 73 22 20 | 66 62 6f 75 6e 64 70 20 |ard-%s" |fboundp |
|000002b0| 4e 20 31 20 65 72 72 6f | 72 20 22 43 61 6e 27 74 |N 1 erro|r "Can't|
|000002c0| 20 64 65 74 65 72 6d 69 | 6e 65 20 68 6f 77 20 74 | determi|ne how t|
|000002d0| 6f 20 6d 6f 76 65 20 6f | 76 65 72 20 25 73 73 22 |o move o|ver %ss"|
|000002e0| 5d 20 34 20 28 23 24 20 | 2e 20 34 39 36 29 5d 29 |] 4 (#$ |. 496)])|
|000002f0| 0a 23 40 33 33 31 20 44 | 65 74 65 72 6d 69 6e 65 |.#@331 D|etermine|
|00000300| 20 74 68 65 20 73 74 61 | 72 74 20 61 6e 64 20 65 | the sta|rt and e|
|00000310| 6e 64 20 62 75 66 66 65 | 72 20 6c 6f 63 61 74 69 |nd buffe|r locati|
|00000320| 6f 6e 73 20 66 6f 72 20 | 74 68 65 20 54 48 49 4e |ons for |the THIN|
|00000330| 47 20 61 74 20 70 6f 69 | 6e 74 2c 0a 77 68 65 72 |G at poi|nt,.wher|
|00000340| 65 20 54 48 49 4e 47 20 | 69 73 20 61 6e 20 65 6e |e THING |is an en|
|00000350| 74 69 74 79 20 66 6f 72 | 20 77 68 69 63 68 20 74 |tity for| which t|
|00000360| 68 65 72 65 20 69 73 20 | 61 20 65 69 74 68 65 72 |here is |a either|
|00000370| 20 61 20 63 6f 72 72 65 | 73 70 6f 6e 64 69 6e 67 | a corre|sponding|
|00000380| 0a 66 6f 72 77 61 72 64 | 2d 54 48 49 4e 47 20 6f |.forward|-THING o|
|00000390| 70 65 72 61 74 69 6f 6e | 2c 20 6f 72 20 63 6f 72 |peration|, or cor|
|000003a0| 72 65 73 70 6f 6e 64 69 | 6e 67 20 62 65 67 69 6e |respondi|ng begin|
|000003b0| 6e 69 6e 67 2d 6f 66 2d | 54 48 49 4e 47 20 61 6e |ning-of-|THING an|
|000003c0| 64 0a 65 6e 64 2d 6f 66 | 2d 54 48 49 4e 47 20 6f |d.end-of|-THING o|
|000003d0| 70 65 72 61 74 69 6f 6e | 73 2c 20 65 67 2e 20 27 |peration|s, eg. '|
|000003e0| 77 6f 72 64 2c 20 27 73 | 65 6e 74 65 6e 63 65 2c |word, 's|entence,|
|000003f0| 20 27 64 65 66 75 6e 2e | 0a 20 20 52 65 74 75 72 | 'defun.|.  Retur|
|00000400| 6e 20 61 20 63 6f 6e 73 | 20 63 65 6c 6c 20 27 28 |n a cons| cell '(|
|00000410| 73 74 61 72 74 20 2e 20 | 65 6e 64 29 20 67 69 76 |start . |end) giv|
|00000420| 69 6e 67 20 74 68 65 20 | 73 74 61 72 74 20 61 6e |ing the |start an|
|00000430| 64 20 65 6e 64 20 70 6f | 73 69 74 69 6f 6e 73 2e |d end po|sitions.|
|00000440| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 6f 75 |..(defal|ias 'bou|
|00000450| 6e 64 73 2d 6f 66 2d 74 | 68 69 6e 67 2d 61 74 2d |nds-of-t|hing-at-|
|00000460| 70 6f 69 6e 74 20 23 5b | 28 54 48 49 4e 47 29 20 |point #[|(THING) |
|00000470| 22 60 18 c1 c2 c3 8f 29 | 87 22 20 5b 6f 72 69 67 |"`.....)|." [orig|
|00000480| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000490| 22 8a 08 c1 4e 86 08 00 | c2 20 88 60 08 c3 4e 86 |"...N...|. .`..N.|
|000004a0| 12 00 c4 20 88 60 1d 1e | 06 0d 85 34 00 0e 06 85 |... .`..|...4....|
|000004b0| 34 00 0d 0e 07 58 85 34 | 00 0e 07 0e 06 57 85 34 |4....X.4|.....W.4|
|000004c0| 00 0d 0e 06 42 2b 87 22 | 20 5b 54 48 49 4e 47 20 |....B+."| [THING |
|000004d0| 65 6e 64 2d 6f 70 20 23 | 5b 6e 69 6c 20 22 c0 09 |end-op #|[nil "..|
|000004e0| c2 5c 22 87 22 20 5b 66 | 6f 72 77 61 72 64 2d 74 |.\"." [f|orward-t|
|000004f0| 68 69 6e 67 20 54 48 49 | 4e 47 20 31 5d 20 33 5d |hing THI|NG 1] 3]|
|00000500| 20 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 70 20 23 5b | beginni|ng-op #[|
|00000510| 6e 69 6c 20 22 c0 09 c2 | 5c 22 87 22 20 5b 66 6f |nil "...|\"." [fo|
|00000520| 72 77 61 72 64 2d 74 68 | 69 6e 67 20 54 48 49 4e |rward-th|ing THIN|
|00000530| 47 20 2d 31 5d 20 33 5d | 20 62 65 67 20 65 6e 64 |G -1] 3]| beg end|
|00000540| 20 6f 72 69 67 5d 20 33 | 29 20 28 28 65 72 72 6f | orig] 3|) ((erro|
|00000550| 72 29 29 5d 20 33 20 28 | 23 24 20 2e 20 37 35 39 |r))] 3 (|#$ . 759|
|00000560| 29 5d 29 0a 23 40 39 30 | 20 52 65 74 75 72 6e 20 |)]).#@90| Return |
|00000570| 74 68 65 20 54 48 49 4e | 47 20 61 74 20 70 6f 69 |the THIN|G at poi|
|00000580| 6e 74 2c 20 77 68 65 72 | 65 20 54 48 49 4e 47 20 |nt, wher|e THING |
|00000590| 69 73 20 61 6e 20 65 6e | 74 69 74 79 20 64 65 66 |is an en|tity def|
|000005a0| 69 6e 65 64 20 62 79 0a | 62 6f 75 6e 64 73 2d 6f |ined by.|bounds-o|
|000005b0| 66 2d 74 68 69 6e 67 2d | 61 74 2d 70 6f 69 6e 74 |f-thing-|at-point|
|000005c0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 68 |...(defa|lias 'th|
|000005d0| 69 6e 67 2d 61 74 2d 70 | 6f 69 6e 74 20 23 5b 28 |ing-at-p|oint #[(|
|000005e0| 54 48 49 4e 47 29 20 22 | c0 09 21 89 1a 85 0d 00 |THING) "|..!.....|
|000005f0| 5c 6e 40 5c 6e 41 7b 29 | 87 22 20 5b 62 6f 75 6e |\n@\nA{)|." [boun|
|00000600| 64 73 2d 6f 66 2d 74 68 | 69 6e 67 2d 61 74 2d 70 |ds-of-th|ing-at-p|
|00000610| 6f 69 6e 74 20 54 48 49 | 4e 47 20 62 6f 75 6e 64 |oint THI|NG bound|
|00000620| 73 5d 20 33 20 28 23 24 | 20 2e 20 31 33 38 35 29 |s] 3 (#$| . 1385)|
|00000630| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 62 65 |]).(defa|lias 'be|
|00000640| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 74 68 69 6e 67 |ginning-|of-thing|
|00000650| 20 23 5b 28 54 48 49 4e | 47 29 20 22 c0 09 21 89 | #[(THIN|G) "..!.|
|00000660| 1a 84 0d 00 c3 c4 09 5c | 22 88 5c 6e 40 62 29 87 |.......\|".\n@b).|
|00000670| 22 20 5b 62 6f 75 6e 64 | 73 2d 6f 66 2d 74 68 69 |" [bound|s-of-thi|
|00000680| 6e 67 2d 61 74 2d 70 6f | 69 6e 74 20 54 48 49 4e |ng-at-po|int THIN|
|00000690| 47 20 62 6f 75 6e 64 73 | 20 65 72 72 6f 72 20 22 |G bounds| error "|
|000006a0| 4e 6f 20 25 73 20 68 65 | 72 65 22 5d 20 34 5d 29 |No %s he|re"] 4])|
|000006b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 6e 64 2d |.(defali|as 'end-|
|000006c0| 6f 66 2d 74 68 69 6e 67 | 20 23 5b 28 54 48 49 4e |of-thing| #[(THIN|
|000006d0| 47 29 20 22 c0 09 21 89 | 1a 84 0d 00 c3 c4 09 5c |G) "..!.|.......\|
|000006e0| 22 88 5c 6e 41 62 29 87 | 22 20 5b 62 6f 75 6e 64 |".\nAb).|" [bound|
|000006f0| 73 2d 6f 66 2d 74 68 69 | 6e 67 2d 61 74 2d 70 6f |s-of-thi|ng-at-po|
|00000700| 69 6e 74 20 54 48 49 4e | 47 20 62 6f 75 6e 64 73 |int THIN|G bounds|
|00000710| 20 65 72 72 6f 72 20 22 | 4e 6f 20 25 73 20 68 65 | error "|No %s he|
|00000720| 72 65 22 5d 20 34 5d 29 | 0a 28 70 75 74 20 28 71 |re"] 4])|.(put (q|
|00000730| 75 6f 74 65 20 6c 69 6e | 65 29 20 28 71 75 6f 74 |uote lin|e) (quot|
|00000740| 65 20 62 65 67 69 6e 6e | 69 6e 67 2d 6f 70 29 20 |e beginn|ing-op) |
|00000750| 23 5b 6e 69 6c 20 22 6e | 83 07 00 c0 79 87 c1 79 |#[nil "n|....y..y|
|00000760| 88 c2 87 22 20 5b 2d 31 | 20 30 20 6e 69 6c 5d 20 |..." [-1| 0 nil] |
|00000770| 31 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |1]).(def|alias 'i|
|00000780| 6e 2d 73 74 72 69 6e 67 | 2d 70 20 23 5b 6e 69 6c |n-string|-p #[nil|
|00000790| 20 22 60 18 8a c1 20 88 | c2 c3 60 08 5c 22 38 2a | "`... .|..`.\"8*|
|000007a0| 87 22 20 5b 6f 72 69 67 | 20 62 65 67 69 6e 6e 69 |." [orig| beginni|
|000007b0| 6e 67 2d 6f 66 2d 64 65 | 66 75 6e 20 33 20 70 61 |ng-of-de|fun 3 pa|
|000007c0| 72 73 65 2d 70 61 72 74 | 69 61 6c 2d 73 65 78 70 |rse-part|ial-sexp|
|000007d0| 5d 20 34 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 4]).(d|efalias |
|000007e0| 27 65 6e 64 2d 6f 66 2d | 73 65 78 70 20 23 5b 6e |'end-of-|sexp #[n|
|000007f0| 69 6c 20 22 60 66 7a 89 | 18 c1 3d 84 15 00 08 c2 |il "`fz.|..=.....|
|00000800| 3d 83 1a 00 c3 20 83 1a | 00 c4 75 82 1d 00 c5 c4 |=.... ..|..u.....|
|00000810| 21 29 87 22 20 5b 63 68 | 61 72 2d 73 79 6e 74 61 |!)." [ch|ar-synta|
|00000820| 78 20 34 31 20 33 34 20 | 69 6e 2d 73 74 72 69 6e |x 41 34 |in-strin|
|00000830| 67 2d 70 20 31 20 66 6f | 72 77 61 72 64 2d 73 65 |g-p 1 fo|rward-se|
|00000840| 78 70 5d 20 33 5d 29 0a | 28 62 79 74 65 2d 63 6f |xp] 3]).|(byte-co|
|00000850| 64 65 20 22 c0 c1 c2 c3 | 23 88 c0 c4 c2 c5 23 88 |de "....|#.....#.|
|00000860| c0 c4 c6 c7 23 87 22 20 | 5b 70 75 74 20 73 65 78 |....#." |[put sex|
|00000870| 70 20 65 6e 64 2d 6f 70 | 20 65 6e 64 2d 6f 66 2d |p end-op| end-of-|
|00000880| 73 65 78 70 20 6c 69 73 | 74 20 23 5b 6e 69 6c 20 |sexp lis|t #[nil |
|00000890| 22 c0 c1 21 87 22 20 5b | 75 70 2d 6c 69 73 74 20 |"..!." [|up-list |
|000008a0| 31 5d 20 32 5d 20 62 65 | 67 69 6e 6e 69 6e 67 2d |1] 2] be|ginning-|
|000008b0| 6f 70 20 62 61 63 6b 77 | 61 72 64 2d 73 65 78 70 |op backw|ard-sexp|
|000008c0| 5d 20 34 29 0a 23 40 33 | 36 20 43 68 61 72 61 63 |] 4).#@3|6 Charac|
|000008d0| 74 65 72 73 20 61 6c 6c | 6f 77 61 62 6c 65 20 69 |ters all|owable i|
|000008e0| 6e 20 66 69 6c 65 6e 61 | 6d 65 73 2e 1f 0a 28 64 |n filena|mes...(d|
|000008f0| 65 66 76 61 72 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |efvar fi|le-name-|
|00000900| 63 68 61 72 73 20 22 7e | 2f 41 2d 5a 61 2d 7a 30 |chars "~|/A-Za-z0|
|00000910| 2d 39 2d 2d 2d 5f 2e 24 | 7b 7d 23 25 2c 22 20 28 |-9---_.$|{}#%," (|
|00000920| 23 24 20 2e 20 32 32 35 | 30 29 29 0a 28 62 79 74 |#$ . 225|0)).(byt|
|00000930| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 c3 23 88 c0 c1 |e-code "|....#...|
|00000940| c4 c5 23 87 22 20 5b 70 | 75 74 20 66 69 6c 65 6e |..#." [p|ut filen|
|00000950| 61 6d 65 20 65 6e 64 2d | 6f 70 20 23 5b 6e 69 6c |ame end-|op #[nil|
|00000960| 20 22 08 c1 77 87 22 20 | 5b 66 69 6c 65 2d 6e 61 | "..w." |[file-na|
|00000970| 6d 65 2d 63 68 61 72 73 | 20 6e 69 6c 5d 20 32 5d |me-chars| nil] 2]|
|00000980| 20 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 70 20 23 5b | beginni|ng-op #[|
|00000990| 6e 69 6c 20 22 08 65 78 | 87 22 20 5b 66 69 6c 65 |nil ".ex|." [file|
|000009a0| 2d 6e 61 6d 65 2d 63 68 | 61 72 73 5d 20 32 5d 5d |-name-ch|ars] 2]]|
|000009b0| 20 34 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 | 4).(def|alias 'f|
|000009c0| 6f 72 77 61 72 64 2d 77 | 68 69 74 65 73 70 61 63 |orward-w|hitespac|
|000009d0| 65 20 23 5b 28 41 52 47 | 29 20 22 c0 09 21 83 0d |e #[(ARG|) "..!..|
|000009e0| 00 c2 c3 c4 89 09 24 87 | 09 c5 57 85 2e 00 c6 c3 |......$.|..W.....|
|000009f0| c4 89 23 83 27 00 c5 94 | 66 c7 3d 84 27 00 c8 c4 |..#.'...|f.=.'...|
|00000a00| 78 88 09 54 89 11 82 0e | 00 87 22 20 5b 6e 61 74 |x..T....|.." [nat|
|00000a10| 6e 75 6d 70 20 41 52 47 | 20 72 65 2d 73 65 61 72 |nump ARG| re-sear|
|00000a20| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5b 20 09 5d |ch-forwa|rd "[ .]|
|00000a30| 2b 5c 5c 7c 5c 6e 22 20 | 6e 69 6c 20 30 20 72 65 |+\\|\n" |nil 0 re|
|00000a40| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00000a50| 20 31 30 20 22 20 09 22 | 5d 20 36 20 6e 69 6c 20 | 10 " ."|] 6 nil |
|00000a60| 22 70 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |"p"]).(b|yte-code|
|00000a70| 20 22 c0 c1 c2 c3 23 88 | c0 c1 c4 c5 23 87 22 20 | "....#.|....#." |
|00000a80| 5b 70 75 74 20 62 75 66 | 66 65 72 20 65 6e 64 2d |[put buf|fer end-|
|00000a90| 6f 70 20 65 6e 64 2d 6f | 66 2d 62 75 66 66 65 72 |op end-o|f-buffer|
|00000aa0| 20 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 70 20 62 65 | beginni|ng-op be|
|00000ab0| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 62 75 66 66 65 |ginning-|of-buffe|
|00000ac0| 72 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |r] 4).(d|efalias |
|00000ad0| 27 66 6f 72 77 61 72 64 | 2d 73 79 6d 62 6f 6c 20 |'forward|-symbol |
|00000ae0| 23 5b 28 41 52 47 29 20 | 22 c0 09 21 83 0d 00 c2 |#[(ARG) |"..!....|
|00000af0| c3 c4 89 09 24 87 09 c5 | 57 85 26 00 c6 c3 c4 89 |....$...|W.&.....|
|00000b00| 23 83 1f 00 c7 c8 21 88 | 09 54 89 11 82 0e 00 87 |#.....!.|.T......|
|00000b10| 22 20 5b 6e 61 74 6e 75 | 6d 70 20 41 52 47 20 72 |" [natnu|mp ARG r|
|00000b20| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00000b30| 20 22 5c 5c 28 5c 5c 73 | 77 5c 5c 7c 5c 5c 73 5f | "\\(\\s|w\\|\\s_|
|00000b40| 5c 5c 29 2b 22 20 6e 69 | 6c 20 30 20 72 65 2d 73 |\\)+" ni|l 0 re-s|
|00000b50| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 73 |earch-ba|ckward s|
|00000b60| 6b 69 70 2d 73 79 6e 74 | 61 78 2d 62 61 63 6b 77 |kip-synt|ax-backw|
|00000b70| 61 72 64 20 22 77 5f 22 | 5d 20 36 20 6e 69 6c 20 |ard "w_"|] 6 nil |
|00000b80| 22 70 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"p"]).(d|efalias |
|00000b90| 27 66 6f 72 77 61 72 64 | 2d 73 61 6d 65 2d 73 79 |'forward|-same-sy|
|00000ba0| 6e 74 61 78 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ntax #[(|&optiona|
|00000bb0| 6c 20 61 72 67 29 20 22 | 08 c1 57 83 16 00 c2 c3 |l arg) "|..W.....|
|00000bc0| 60 53 66 7a 21 21 88 08 | 54 89 10 82 01 00 08 c1 |`Sfz!!..|T.......|
|00000bd0| 56 85 2b 00 c4 c3 60 66 | 7a 21 21 88 08 53 89 10 |V.+...`f|z!!..S..|
|00000be0| 82 17 00 87 22 20 5b 61 | 72 67 20 30 20 73 6b 69 |...." [a|rg 0 ski|
|00000bf0| 70 2d 73 79 6e 74 61 78 | 2d 62 61 63 6b 77 61 72 |p-syntax|-backwar|
|00000c00| 64 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |d char-t|o-string|
|00000c10| 20 73 6b 69 70 2d 73 79 | 6e 74 61 78 2d 66 6f 72 | skip-sy|ntax-for|
|00000c20| 77 61 72 64 5d 20 34 20 | 6e 69 6c 20 22 70 22 5d |ward] 4 |nil "p"]|
|00000c30| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 77 6f 72 |).(defal|ias 'wor|
|00000c40| 64 2d 61 74 2d 70 6f 69 | 6e 74 20 23 5b 6e 69 6c |d-at-poi|nt #[nil|
|00000c50| 20 22 c0 c1 21 87 22 20 | 5b 74 68 69 6e 67 2d 61 | "..!." |[thing-a|
|00000c60| 74 2d 70 6f 69 6e 74 20 | 77 6f 72 64 5d 20 32 5d |t-point |word] 2]|
|00000c70| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 65 6e |).(defal|ias 'sen|
|00000c80| 74 65 6e 63 65 2d 61 74 | 2d 70 6f 69 6e 74 20 23 |tence-at|-point #|
|00000c90| 5b 6e 69 6c 20 22 c0 c1 | 21 87 22 20 5b 74 68 69 |[nil "..|!." [thi|
|00000ca0| 6e 67 2d 61 74 2d 70 6f | 69 6e 74 20 73 65 6e 74 |ng-at-po|int sent|
|00000cb0| 65 6e 63 65 5d 20 32 5d | 29 0a 23 40 38 38 20 52 |ence] 2]|).#@88 R|
|00000cc0| 65 61 64 20 61 20 6c 69 | 73 70 20 65 78 70 72 65 |ead a li|sp expre|
|00000cd0| 73 73 69 6f 6e 20 66 72 | 6f 6d 20 53 54 52 2c 20 |ssion fr|om STR, |
|00000ce0| 73 69 67 6e 61 6c 69 6e | 67 20 61 6e 20 65 72 72 |signalin|g an err|
|00000cf0| 6f 72 20 69 66 20 74 68 | 65 20 65 6e 74 69 72 65 |or if th|e entire|
|00000d00| 20 73 74 72 69 6e 67 0a | 77 61 73 20 6e 6f 74 20 | string.|was not |
|00000d10| 75 73 65 64 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |used...(|defalias|
|00000d20| 20 27 72 65 61 64 2d 66 | 72 6f 6d 2d 77 68 6f 6c | 'read-f|rom-whol|
|00000d30| 65 2d 73 74 72 69 6e 67 | 20 23 5b 28 53 54 52 29 |e-string| #[(STR)|
|00000d40| 20 22 c0 09 21 1a c3 c4 | c5 8f 89 1e 06 83 14 00 | "..!...|........|
|00000d50| c7 c8 21 82 16 00 5c 6e | 40 2a 87 22 20 5b 72 65 |..!...\n|@*." [re|
|00000d60| 61 64 2d 66 72 6f 6d 2d | 73 74 72 69 6e 67 20 53 |ad-from-|string S|
|00000d70| 54 52 20 72 65 61 64 2d | 64 61 74 61 20 6e 69 6c |TR read-|data nil|
|00000d80| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 09 5c | (byte-c|ode "..\|
|00000d90| 6e 41 c3 4f 21 88 c4 87 | 22 20 5b 72 65 61 64 2d |nA.O!...|" [read-|
|00000da0| 66 72 6f 6d 2d 73 74 72 | 69 6e 67 20 53 54 52 20 |from-str|ing STR |
|00000db0| 72 65 61 64 2d 64 61 74 | 61 20 6e 69 6c 20 74 5d |read-dat|a nil t]|
|00000dc0| 20 34 29 20 28 28 65 6e | 64 2d 6f 66 2d 66 69 6c | 4) ((en|d-of-fil|
|00000dd0| 65 29 29 20 6d 6f 72 65 | 2d 6c 65 66 74 20 65 72 |e)) more|-left er|
|00000de0| 72 6f 72 20 22 43 61 6e | 27 74 20 72 65 61 64 20 |ror "Can|'t read |
|00000df0| 77 68 6f 6c 65 20 73 74 | 72 69 6e 67 22 5d 20 34 |whole st|ring"] 4|
|00000e00| 20 28 23 24 20 2e 20 33 | 32 36 33 29 5d 29 0a 28 | (#$ . 3|263)]).(|
|00000e10| 64 65 66 61 6c 69 61 73 | 20 27 66 6f 72 6d 2d 61 |defalias| 'form-a|
|00000e20| 74 2d 70 6f 69 6e 74 20 | 23 5b 28 26 6f 70 74 69 |t-point |#[(&opti|
|00000e30| 6f 6e 61 6c 20 54 48 49 | 4e 47 20 50 52 45 44 29 |onal THI|NG PRED)|
|00000e40| 20 22 c0 c1 c2 8f 1b 5c | 66 83 0f 00 5c 66 0b 21 | ".....\|f...\f.!|
|00000e50| 85 10 00 0b 29 87 22 20 | 5b 6e 69 6c 20 28 62 79 |....)." |[nil (by|
|00000e60| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 5c 6e 86 07 00 |te-code |"..\n...|
|00000e70| c3 21 21 87 22 20 5b 72 | 65 61 64 2d 66 72 6f 6d |.!!." [r|ead-from|
|00000e80| 2d 77 68 6f 6c 65 2d 73 | 74 72 69 6e 67 20 74 68 |-whole-s|tring th|
|00000e90| 69 6e 67 2d 61 74 2d 70 | 6f 69 6e 74 20 54 48 49 |ing-at-p|oint THI|
|00000ea0| 4e 47 20 73 65 78 70 5d | 20 33 29 20 28 28 65 72 |NG sexp]| 3) ((er|
|00000eb0| 72 6f 72 29 29 20 73 65 | 78 70 20 50 52 45 44 5d |ror)) se|xp PRED]|
|00000ec0| 20 33 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 3]).(de|falias '|
|00000ed0| 73 65 78 70 2d 61 74 2d | 70 6f 69 6e 74 20 23 5b |sexp-at-|point #[|
|00000ee0| 6e 69 6c 20 22 c0 c1 21 | 87 22 20 5b 66 6f 72 6d |nil "..!|." [form|
|00000ef0| 2d 61 74 2d 70 6f 69 6e | 74 20 73 65 78 70 5d 20 |-at-poin|t sexp] |
|00000f00| 32 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |2]).(def|alias 's|
|00000f10| 79 6d 62 6f 6c 2d 61 74 | 2d 70 6f 69 6e 74 20 23 |ymbol-at|-point #|
|00000f20| 5b 6e 69 6c 20 22 c0 c1 | c2 5c 22 87 22 20 5b 66 |[nil "..|.\"." [f|
|00000f30| 6f 72 6d 2d 61 74 2d 70 | 6f 69 6e 74 20 73 65 78 |orm-at-p|oint sex|
|00000f40| 70 20 73 79 6d 62 6f 6c | 70 5d 20 33 5d 29 0a 28 |p symbol|p] 3]).(|
|00000f50| 64 65 66 61 6c 69 61 73 | 20 27 6e 75 6d 62 65 72 |defalias| 'number|
|00000f60| 2d 61 74 2d 70 6f 69 6e | 74 20 23 5b 6e 69 6c 20 |-at-poin|t #[nil |
|00000f70| 22 c0 c1 c2 5c 22 87 22 | 20 5b 66 6f 72 6d 2d 61 |"...\"."| [form-a|
|00000f80| 74 2d 70 6f 69 6e 74 20 | 73 65 78 70 20 6e 75 6d |t-point |sexp num|
|00000f90| 62 65 72 70 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |berp] 3]|).(defal|
|00000fa0| 69 61 73 20 27 6c 69 73 | 74 2d 61 74 2d 70 6f 69 |ias 'lis|t-at-poi|
|00000fb0| 6e 74 20 23 5b 6e 69 6c | 20 22 c0 c1 c2 5c 22 87 |nt #[nil| "...\".|
|00000fc0| 22 20 5b 66 6f 72 6d 2d | 61 74 2d 70 6f 69 6e 74 |" [form-|at-point|
|00000fd0| 20 6c 69 73 74 20 6c 69 | 73 74 70 5d 20 33 5d 29 | list li|stp] 3])|
|00000fe0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+